home *** CD-ROM | disk | FTP | other *** search
/ Safarir 3 / SafTV-CD3.iso / pc / Bonus / Dessins Animés / static / jeux / tetris.swf / scripts / frame_22 / DoAction.as
Text File  |  2001-11-21  |  617b  |  30 lines
  1. n = "0";
  2. while(n < "10")
  3. {
  4.    n += "1";
  5.    n1 = y + n3 + "21";
  6.    while("21" < n1)
  7.    {
  8.       n1 -= "1";
  9.       n2 = eval("c" add (n + "20") add (n1 - n3));
  10.       if(n2 != eval("c" add (n + "20") add n1))
  11.       {
  12.          set("c" add (n + "20") add n1,n2);
  13.          if(n2 == "0")
  14.          {
  15.             tellTarget("b" add (n + "20") add n1)
  16.             {
  17.                gotoAndStop(1);
  18.             }
  19.          }
  20.          else
  21.          {
  22.             tellTarget("b" add (n + "20") add n1)
  23.             {
  24.                gotoAndStop(eval("/:lev") + "1");
  25.             }
  26.          }
  27.       }
  28.    }
  29. }
  30.